home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
USA Bestseller
/
USA BESTSELLER Vol 1-95 (Hepp-Computer)(1995).iso
/
e192
/
timer.rs_
/
timer.rs
Wrap
Text File
|
1993-09-14
|
437b
|
28 lines
:Begin:
Input(%1)"Enter timer duration: (in seconds)"
:TimeIt
Status "Waiting %1 seconds..."
Wait(%1)
Status "Time is up!"
%2=0
:Repeat:
Beep
%2=+1
wait(0.1)
If %2="20" Then Goto Skip
Goto Repeat
:Skip:
Status "Time is up!"
wait(1)
List(%3)"Repeat with same time|Enter new time|Quit"
If %3="-1" then goto Quit
If %3="0" then goto TimeIt
If %3="1" then goto Begin
If %3="2" then goto Quit
:Quit:
Status OFF